home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / homeimpr.sit / Home Improvements / card_4440.txt < prev    next >
Text File  |  1988-09-19  |  2KB  |  81 lines
  1. -- card: 4440 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3490
  5. -- name: ShowHidden
  6.  
  7.  
  8. -- part contents for background part 1
  9. ----- text -----
  10. ShowHidden
  11.  
  12. -- part contents for background part 3
  13. ----- text -----
  14. on showHidden
  15.   -- give info about hidden fields or buttons; bkgnd or card
  16.   if the paramcount<1 then
  17.     put "field" into whch
  18.   else
  19.     put param(1) into whch
  20.   end if
  21.   if last char of whch is "s" then delete last char of whch
  22.   put the number of words of whch into iii
  23.   add 1 to iii
  24.   put "Hidden " & whch & " - "
  25.   put "put the number of " & whch & "s into howMany" into com1
  26.   put "get the visible of " & whch into com2
  27.   put "get the short name of " & whch into com3
  28.   put "show " & whch into com4
  29.   put "edit script of " & whch into com5
  30.   do com1
  31.   put 0 into cntr
  32.   put 0 into lastone
  33.   repeat with ii = 1 to howMany
  34.     put com2 && ii into com
  35.     do com
  36.     if it is FALSE then
  37.       put ii into lastone
  38.       put com3 && ii into com
  39.       do com
  40.       put space & ii && ": " & it && "," after the message window
  41.       add 1 to cntr
  42.     end if
  43.   end repeat
  44.   if cntr > 0 then
  45.     delete last char of the message window
  46.     if cntr>1 then
  47.       put "s" after word iii of the message window
  48.     end if
  49.     answer "Make visible or edit script?" with "Cancel" or "Visible" ┬¼
  50.     or "Edit"
  51.     if it is "Cancel" then exit showHidden
  52.     if it is "Visible" then
  53.       ask "Which one (specify number or ALL):" with "ALL"
  54.       if it is empty then exit showHidden
  55.       if it is "ALL" then
  56.         repeat with ii = 1 to howMany
  57.           put com4 && ii into com
  58.           do com
  59.         end repeat
  60.       else
  61.         put com4 && it into com
  62.         do com
  63.       end if
  64.     else
  65.       ask "Which one:" with lastone
  66.       if it is empty then exit showHidden
  67.       put com5 && it into com
  68.       do com
  69.     end if
  70.   else
  71.     put " None." after the message window
  72.   end if
  73. end showHidden
  74.  
  75. -- part contents for background part 4
  76. ----- text -----
  77. This command will search the current card for hidden fields or buttons.  It will show a brief list of them and then give the opportunity to either make them visible or to edit the script of one of them.  Copy the handler below into your Home Card stack script
  78.  
  79. -- part contents for background part 5
  80. ----- text -----
  81. 6/28/88 15:16